home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Complementary Applications 2004 February / SGI IRIX 6.5 Complementary Applications 2004 February.iso / dist / cde.idb / usr / dt / share / examples / dtksh / XdrawTest.z / XdrawTest
Encoding:
Text File  |  2003-11-18  |  5.0 KB  |  139 lines
  1. #! /usr/dt/bin/dtksh
  2. #
  3. # XdrawTest
  4. #
  5. # Copyright 2000, Silicon Graphics, Inc.
  6. # ALL RIGHTS RESERVED
  7. # 
  8. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  9. # States.   Use of a copyright notice is precautionary only and does not
  10. # imply publication or disclosure.
  11. #
  12. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  13. # Use, duplication or disclosure by the Government is subject to restrictions
  14. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  15. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  16. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  17. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  18. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  19. #
  20. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  21. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  22. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  23. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  24. # GRAPHICS, INC.
  25. #
  26. ##########################################################################
  27. #  (c) Copyright 1993, 1994 Hewlett-Packard Company    
  28. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  29. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  30. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  31. #      Novell, Inc.
  32. ##########################################################################
  33.  
  34.  
  35. #
  36. # This sample shell script demonstrates the calling sequence for most of
  37. # the X drawing commands.
  38. #
  39.  
  40. ExposeCallback()
  41. {
  42.    XDrawRectangle $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  43.                  10 20 100 200 \
  44.                              120 20 200 100
  45.  
  46.    XFillRectangle $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  47.                               -foreground red -background green 20 30 80 180 
  48.  
  49.    XClearArea $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  50.                               30 40 60 40 false
  51.  
  52.    XDrawLine $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  53.                               -foreground red -background white 130 22 130 117
  54.  
  55.    XDrawLines $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  56.                               140 30 140 101 \
  57.                               150 101 150 30
  58.  
  59.    XDrawLines $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  60.                               -CoordModePrevious -line_width 3 160 30 0 71 \
  61.                               10 0 0 -71
  62.  
  63.    XDrawPoint $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  64.                               180 30 180 101
  65.  
  66.    XDrawPoints $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  67.     190 30 190 40 190 50 190 60 190 70 190 80 190 90 190 101
  68.  
  69.    XDrawPoints $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  70.                               -CoordModePrevious \
  71.                           200 30 0 10 0 10 0 10 0 10 0 10 0 10 0 10
  72.  
  73.    XDrawSegments $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  74.                     -function clear -foreground green -background red \
  75.                     -line_width 3 \
  76.                 210 30 210 40 210 50 210 60 210 70 210 80 210 90 210 100
  77.  
  78.    XDrawArc $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  79.                      -line_width 3 20 300 100 150 300 5760
  80.  
  81.    XFillArc $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  82.                      -line_width 3 20 270 100 150 11520 5760
  83.  
  84.    XDrawString $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  85.                      -font fixed -foreground blue -background red 200 200 \
  86.                      "XDrawString" 
  87.  
  88.    XDrawImageString $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  89.                      -foreground green -background red 200 250 \
  90.                      "XDrawImageString" 
  91.  
  92.    XFillPolygon $(XtDisplay "-" $CB_WIDGET) $(XtWindow "-" $CB_WIDGET) \
  93.                      -Convex -CoordModePrevious \
  94.                  300 300 30 70 30 -140
  95.  
  96.    XTextWidth "-" fixed "Hi Mom"
  97. }
  98.  
  99. ClearWindow()
  100. {
  101.    XClearWindow $(XtDisplay "-" $DRAWINGAREA) $(XtWindow "-" $DRAWINGAREA)
  102. }
  103.  
  104.  
  105. ######################### Create the Main UI #################################
  106.  
  107. XtInitialize TOPLEVEL drawingArea DrawingArea "$0" "$@"
  108.  
  109. XtCreateManagedWidget FORM form XmForm $TOPLEVEL
  110.  
  111. XtCreateManagedWidget DRAWINGAREA drawingArea XmDrawingArea $FORM \
  112.     topAttachment:ATTACH_FORM \
  113.     leftAttachment:ATTACH_FORM \
  114.     rightAttachment:ATTACH_FORM
  115. XtAddCallback $DRAWINGAREA exposeCallback ExposeCallback
  116.  
  117. XtCreateManagedWidget SEP sep XmSeparator $FORM \
  118.     topAttachment:ATTACH_WIDGET \
  119.     topWidget:$DRAWINGAREA \
  120.     leftAttachment:ATTACH_FORM \
  121.     rightAttachment:ATTACH_FORM
  122.  
  123. XtCreateManagedWidget PB pb XmPushButton $FORM \
  124.     labelString:"Clear The Window" \
  125.     topAttachment:ATTACH_WIDGET \
  126.     topWidget:$SEP \
  127.     leftAttachment:ATTACH_FORM \
  128.     rightAttachment:ATTACH_FORM \
  129.     bottomAttachment:ATTACH_FORM
  130. XtAddCallback $PB activateCallback ClearWindow
  131.  
  132. XtSetValues $DRAWINGAREA \
  133.          height:450 \
  134.          width:450
  135.  
  136. XtRealizeWidget $TOPLEVEL
  137.  
  138. XtMainLoop
  139.